Monster Media 1996 #15/Monster Media Number 15 (Monster Media)(July 1996).ISO/bbs_game/blackj20.zip/BLACK.SRC

Text File | 1996-04-19 | 24KB | 967 lines

# ┌──────────────────────────────────────────────────────────────────────────┐
# │         BLACK.SRC   (Chuckle Box BlackJack)                              │
# │                                                                          │
# │          Version:   2.0  (Released 19 Apr 1996) for SBBS 2.20 - Rev B    │
# │           Author:   Robert Nykvist  aka  Chuckles@VERT                   │
# │                                                                          │
# │      Quick Start:   1.  Move BLACK.SRC to your \EXEC directory.          │
# │                     2.  Edit paths in script as needed for your system.  │
# │                     3.  Compile BLACK.SRC with Baja compiler.            │
# │                     4.  You determine how to make script available.      │
# │                                                                          │
# │             NOTE:       This script WILL modify user credits, and uses   │
# │                         file I/O to create a log.  Check the paths!      │
# └──────────────────────────────────────────────────────────────────────────┘
!INCLUDE SBBSDEFS.INC
!INCLUDE FILE_IO.INC

# Define Integer Variables
int WINNINGS CARD COUNT TOTAL FILE TRACKPLAY

# Set WINNINGS to zero only upon entering the script.
set WINNINGS 0
set TRACKPLAY 0

# Top of Menu - Credit Check
# If user doesn't have 5 k Credits, send them on their way.
:top
compare_ars $C !5
  if_true
    crlf
    print "
r
hSorry, you don't have enough credits play today."
    crlf
    print "
r
hTry again tomorrow...
n"
    crlf
    crlf
    pause
    cmd_pop
    goto byebye
  end_if

# Display Menu
cls
print "  
h
w
4    Score        Result    
n
crlf
print "
n  ┌────────────┬────────────┐"
crlf
print "  │   
h
m0 -  8   
n│   
h
m-25 k    
n│"
print "             
n
h
wChuckle Box BlackJack
n
crlf
print "  │   
h
m9 - 13   
n│   
h
m-10 k    
n│"
print "                  
h
y Version 2.0
n"
crlf
print "  │  
h
g14 - 17   
n│    
h
g+5 k    
n│"
crlf
print "  │  
h
g18 - 20   
n│   
h
g+25 k    
n│"
print "            
4
h
y Your Credits :
w @BYTESLEFT@ 
n"
crlf
print "  │ 
h
yBlack Jack 
n│   
h
y+50 k    
n│"
crlf
print "  │   
h
rBusted   
n│   
h
r-25 k    
n│"
crlf
print "  └────────────┴────────────┘
n"
crlf
crlf

# Note Node Location & make sure things are flowing in SYNC.
node_action node_xtrn

# Display Prompt
compare_ars SYSOP
  if_true
    mnemonics "  ~E)dit, ~V)iew, ~I)nfo, ~P)lay or ~Q)uit > "
  else
    mnemonics "  ~V)iew, ~I)nfo, ~P)lay or ~Q)uit > "
  end_if


# Get Key Input From User - ENTER allowed
sync
getkey EIPQV?\R

# Edit function for SysOp Only
cmdkey e
  compare_ars SYSOP
    if_true
      crlf
      crlf
      setstr "c:\\sbbs\\blackjck.log"
      ungetstr
      edit_text_file
      cmd_pop
      goto top
    end_if
end_cmd

# View last 16 lines of GUESS.LOG
cmdkey v
  cls
  crlf
  print "
h
g──────────────────────────
w│
n
k
2    Black Jack Log    
n
h
w│
g────────────────────────────
n"
  crlf
  chkfile "c:\sbbs\blackjck.log"
    if_true
      setstr "c:\\sbbs\\blackjck.log"
      printtail str 0 16
      crlf
    else
      crlf
      print "
y
h        No one has played yet, or the SysOp has screwed up somewhere."
      crlf
      crlf
    end_if
  print "
h
g──────────────────────────────────────────────────────────────────────────────
n"
  crlf
  crlf
  pause
cmd_pop
goto top
end_cmd

# Display Instructions/Info
  cmdkey I
    cls
    crlf
    crlf
      print "                      
n
hChuckle Box BlackJack - Ver 2.0"
      crlf
      print "                     
yfor SBBS 2.20 B, by Robert Nykvist"
      crlf
      print "
c                    The Chuckle Box BBS @ [phone]"
      crlf
      crlf
      crlf
      print "
ì
n
c     Each BlackJack hand costs
i
h
r 5 k
n
c credits!"
      crlf
      print "
ì
n
cWhen you 
hHIT
n
c, the 
h
mcomputer 
n
cwill deal you a card,"
      crlf
      print "
ïand keep a running 
htotal 
n
cof the value of your 
hHITs
n
c."
      crlf
      crlf
      print "
ÜFace card = face value."
      crlf
      print "
ö
n
c Jack = 
h
m11, 
n
cQueen = 
h
m12, 
n
cKing = 
h
m13
n
c"
      crlf
      crlf
      print "
ìWhen you 
hSTOP 
n
chitting, the computer will 
h
mprocess"
      crlf
      print "
è
n
c      credits according to the chart 
n
cin the menu."
      crlf
      crlf
      print "
âCredits can 
hbuy 
n
cyou 
h
mextra 
n
con-line time using the Time/Credit 
h
mBank
n
c!
n"
    crlf
    crlf
    crlf
    pause
    cmd_pop
    goto top
  end_cmd

# Wipe out display Prompt and go Play, but only for ANSI users.
  cmdkey P
    compare_ars $[
      if_false
        crlf
        crlf
        print "To play this game, you must be in ANSI mode....."
        crlf
        print "Non-ANSI mode detected.  Returning you to BBS..."
        crlf
        crlf
        pause
        cmd_pop
        goto byebye
      end_if
    print "1H
n                                                  
n"
    crlf
    cmd_pop
    goto play
  end_cmd

# Wipe out display Prompt and Leave
  cmdkey Q
    print "1H
n                                                  
n"
    crlf
    cmd_pop
    goto leave
  end_cmd
print "1H
n                                                  
n"
crlf

# Hitting Enter or fallthrough goes to Play,
# again, checking for non-ANSI users.
compare_ars $[
  if_false
    crlf
    crlf
    print "To play this game, you must be in ANSI mode....."
    crlf
    print "Non-ANSI mode detected.  Returning you to BBS..."
    crlf
    crlf
    pause
    cmd_pop
    goto byebye
  end_if
print "1H
n                                                  
n"
crlf
cmd_pop
goto play

# Play BlackJack - Adjust Credits -5K for Ante,
# Keep track of WINNINGS, Reset Integer variables.
:play
add trackplay 1
adjust_user_credits -5
sub WINNINGS 5
set CARD 0
set COUNT 0
set TOTAL 0

# Switch/Case Loop using Integer Variable COUNT.
# Purpose is to alter prompt colors after each hit
# while updating totals.  Easier for user to see changes.
# Many ANSI sequences used to control placement.
:choosecard
switch count
  case 0
    print "1H"
    print "
h
cYour current score is: 
h
m"
    print TOTAL
    print "1H"
    print "                                         "
    print "1H"
    yes_no "Hit"
      if_true
        cmd_pop
        goto hit
      else
        cmd_pop
        goto stay
      end_if
  end_case
  case 1
    print "1H"
    print "
h
yYour current score is: 
h
c"
    print TOTAL
    print "1H"
    print "                                         "
    print "1H"
    yes_no "Hit"
      if_true
        cmd_pop
        goto hit
      else
        cmd_pop
        goto stay
      end_if
  end_case
  case 2
    print "1H"
    print "
n
mYour current score is: 
h
y"
    print TOTAL
    print "1H"
    print "                                         "
    print "1H"
    yes_no "Hit"
      if_true
        cmd_pop
        goto hit
      else
        cmd_pop
        goto stay
      end_if
  end_case
  case 3
    print "1H"
    print "
h
cYour current score is: 
h
m"
    print TOTAL
    print "1H"
    print "                                         "
    print "1H"
    yes_no "Hit"
      if_true
        cmd_pop
        goto hit
      else
        cmd_pop
        goto stay
      end_if
  end_case
  case 4
    print "1H"
    print "
h
gYour current score is: 
n
c"
    print TOTAL
    print "1H"
    print "                                         "
    print "1H"
    yes_no "Hit"
      if_true
        cmd_pop
        goto hit
      else
        cmd_pop
        goto stay
      end_if
  end_case
  case 5
    print "1H"
    print "
h
mYour current score is: 
n
c"
    print TOTAL
    print "1H"
    print "                                         "
    print "1H"
    yes_no "Hit"
      if_true
        cmd_pop
        goto hit
      else
        cmd_pop
        goto stay
      end_if
  end_case
end_switch

# Player wants a Hit  (Draw Card)
# Randomly choose 1-13 for CARD variable
# 0-12 becomes 1-13 by adding 1.
:hit
random CARD 12
add CARD 1

# Problem here is displaying cards with single digits
# as compared to double digit cards, not to mention
# a standard placement of each card for nice graphics.
# We again make use of Switch/Case loop, again using COUNT,
# and ANSI sequence codes to control placement.
:displaycard
switch count
  case 0

# Is the card two digit or single digit?
# Double Digit card is one character wider...
# That's the reason for this long case/if loop
  compare CARD 10
    if_less

# Display first card Hit on column 1  (1H)
# This is assuming a 24 x 80 character screen.
      print "1H"
      print "
h
b╒════════╕  "
      print "1H"
      print "
b│    
c "
      print CARD
      print "
b │  "
      print "1H"
      print "
b│        │  "
      print "1H"
# Letters CB?  Chuckle Box of course.  :)
# Customize this script as you see fit.
# But kindly give credit where credit is due.
      print "
b│   CB   │  "
      print "1H"
      print "
b│        │ "
      print "1H"
      print "
b│ 
c"
      print CARD
      print "
b     │  "
      print "1H"
      print "
b╘════════╛  "
      print "1H"
      print "
wThe card is a: 
g"
      print CARD
      print "      "
   else
# 10 or greater is one character wider.
      print "1H"
      print "
h
b╒═════════╕  "
      print "1H"
      print "
b│    
c "
      print CARD
      print "
b │  "
      print "1H"
      print "
b│         │  "
      print "1H"
      print "
b│   C B   │  "
      print "1H"
      print "
b│         │  "
      print "1H"
      print "
b│ 
c"
      print CARD
      print "
b     │  "
      print "1H"
      print "
b╘═════════╛  "
      print "1H"
      print "
yThe card is a: 
c"
      print CARD
      print "        "
    end_if
  end_case
  case 1
  compare CARD 10
    if_less
# Display second card hit on column 15  (15H)
      print "15H"
      print "
h
b╒════════╕  "
      print "15H"
      print "
b│    
c "
      print CARD
      print "
b │  "
      print "15H"
      print "
b│        │  "
      print "15H"
      print "
b│   CB   │  "
      print "15H"
      print "
b│        │ "
      print "15H"
      print "
b│ 
c"
      print CARD
      print "
b     │  "
      print "15H"
      print "
b╘════════╛  "
      print "1H"
      print "
wThe card is a: 
g"
      print CARD
      print "      "
    else
      print "15H"
      print "
h
b╒═════════╕  "
      print "15H"
      print "
b│     
c"
      print CARD
      print "
b │  "
      print "15H"
      print "
b│         │  "
      print "15H"
      print "
b│   C B   │  "
      print "15H"
      print "
b│         │  "
      print "15H"
      print "
b│ 
c"
      print CARD
      print "
b     │  "
      print "15H"
      print "
b╘═════════╛  "
      print "1H"
      print "
yThe card is a: 
c"
      print CARD
      print "        "
    end_if
  end_case
  case 2
  compare CARD 10
    if_less
# Display third card hit on column 30  (30H)
      print "30H"
      print "
h
b╒════════╕  "
      print "30H"
      print "
b│    
c "
      print CARD
      print "
b │  "
      print "30H"
      print "
b│        │  "
      print "30H"
      print "
b│   CB   │  "
      print "30H"
      print "
b│        │ "
      print "30H"
      print "
b│
c "
      print CARD
      print "
b     │  "
      print "30H"
      print "
b╘════════╛  "
      print "1H"
      print "
wThe card is a: 
g"
      print CARD
      print "      "
    else
      print "30H"
      print "
h
b╒═════════╕  "
      print "30H"
      print "
b│     
c"
      print CARD
      print "
b │  "
      print "30H"
      print "
b│         │  "
      print "30H"
      print "
b│   C B   │  "
      print "30H"
      print "
b│         │  "
      print "30H"
      print "
b│ 
c"
      print CARD
      print "
b     │  "
      print "30H"
      print "
b╘═════════╛  "
      print "1H"
      print "
yThe card is a: 
c"
      print CARD
      print "        "
    end_if
  end_case
  case 3
  compare CARD 10
    if_less
# Display fourth card hit on column 45 (45H)
      print "45H"
      print "
h
b╒════════╕  "
      print "45H"
      print "
b│    
c "
      print CARD
      print "
b │  "
      print "45H"
      print "
b│        │  "
      print "45H"
      print "
b│   CB   │  "
      print "45H"
      print "
b│        │ "
      print "45H"
      print "
b│ 
c"
      print CARD
      print "
b     │  "
      print "45H"
      print "
b╘════════╛  "
      print "1H"
      print "
wThe card is a: 
g"
      print CARD
      print "      "
    else
      print "45H"
      print "
h
b╒═════════╕  "
      print "45H"
      print "
b│     
c"
      print CARD
      print "
b │  "
      print "45H"
      print "
b│         │  "
      print "45H"
      print "
b│   C B   │  "
      print "45H"
      print "
b│         │  "
      print "45H"
      print "
b│ 
c"
      print CARD
      print "
b     │  "
      print "45H"
      print "
b╘═════════╛  "
      print "1H"
      print "
yThe card is a: 
c"
      print CARD
      print "        "
    end_if
  end_case
  case 4
  compare CARD 10
    if_less
# Display fifth & last card pick on column 60  (60H)
      print "60H"
      print "
h
b╒════════╕  "
      print "60H"
      print "
b│    
c "
      print CARD
      print "
b │  "
      print "60H"
      print "
b│        │  "
      print "60H"
      print "
b│   CB   │  "
      print "60H"
      print "
b│        │ "
      print "60H"
      print "
b│
c "
      print CARD
      print "
b     │  "
      print "60H"
      print "
b╘════════╛  "
      print "1H"
      print "
wThe card is a: 
g"
      print CARD
      print "      "
    else
      print "60H"
      print "
h
b╒═════════╕  "
      print "60H"
      print "
b│     
c"
      print CARD
      print "
b │  "
      print "60H"
      print "
b│         │  "
      print "60H"
      print "
b│   C B   │  "
      print "60H"
      print "
b│         │  "
      print "60H"
      print "
b│ 
c"
      print CARD
      print "
b     │  "
      print "60H"
      print "
b╘═════════╛  "
      print "1H"
      print "
yThe card is a: 
c"
      print CARD
      print "        "
    end_if
  end_case
end_switch

# COUNT is used to keep track of Hits or cards drawn.
# After drawing a CARD, it is added to variable TOTAL.
add COUNT 1
add TOTAL CARD

# There is a BONUS for those who draw 5 cards
# Checking for it here.
compare COUNT 5
  if_true
    cmd_pop
    goto bigtest
  end_if

# Checking TOTAL for Blackjack.
compare TOTAL 21
  if_true
    cmd_pop
    goto super
  end_if

# Is TOTAL less than 21?  See if they want another HIT.
compare TOTAL 21
  if_less
    cmd_pop
    goto choosecard
  end_if

# TOTAL over 21?  Oh Crap...  BUSTED.
compare TOTAL 21
  if_greater
    cmd_pop
    goto crap
  end_if

# When they don't want another HIT - they STAY.
# Now we have to determine what CREDIT action
# to take based upon their card TOTAL.
# See Menu for what TOTALs earn what CREDITS.
# Feel Free to customize the CREDIT structures.
# Checking here for a TOTAL less than 8.
:stay
compare TOTAL 8
  if_less_or_equal
    cmd_pop
    goto losetwofive
  else
    cmd_pop
    goto testtwo
  end_if

# TOTAL Less than 8?  Yikes!  -25
# Again using ANSI sequences for placement of text, or clearing of text.
:losetwofive
print "1H"
print "
h
wYour total for this hand was: 
h
b"
print TOTAL
print "   
n"
crlf
print "                                                           
n"
crlf
print "
h
mThe SysOp Chuckles as he snatches 
h
r25 k
h
m of your credits!
n"
crlf
print "1H
n                                                  
n\r"
pause

# Adjusting credits accordingly and tracking their overall winnings.
adjust_user_credits -25
sub WINNINGS 25
cmd_pop
goto top

# Checking for TOTAL between 9 & 13
:testtwo
compare TOTAL 13
  if_less_or_equal
    cmd_pop
    goto loseten
  else
    cmd_pop
    goto testthree
  end_if

# TOTAL between 9-13.  Too Bad.  -10
:loseten
print "1H"
print "
h
wYour total for this hand was: 
h
b"
print TOTAL
print "   
n"
crlf
print "                                                           
n"
crlf
Print "
h
mSay goodbye to 
h
r10 k
h
m of your Credits for staying with 13 or less!
n"
crlf
print "1H
n                                                  
n\r"
pause
adjust_user_credits -10
sub WINNINGS 10
cmd_pop
goto top

# Checking for TOTAL between 14 & 17
:testthree
compare TOTAL 17
  if_less_or_equal
    cmd_pop
    goto gainfive
  else
    cmd_pop
    goto testfour
  end_if

# TOTAL between 14-17.  They played it SAFE.  +5
# Since it cost 5 to play, they gain or lose nothing.
:gainfive
print "1H"
print "
h
wYour total for this hand was: 
h
b"
print TOTAL
print "   
n"
crlf
print "                                                           
n"
crlf
print "
h
mSmart Move!  Playing it safe earned you
h
r 5 k
h
m Credits.
n"
crlf
print "1H
n                                                  
n\r"
pause
adjust_user_credits 5
add WINNINGS 5
cmd_pop
goto top

# TOTAL between 18-20.  Ahh, a Winner!  +25
:testfour
print "1H"
print "
h
wYour total for this hand was: 
h
b"
print TOTAL
print "   
n"
crlf
print "                                                           
n"
crlf
print_remote ""
print "
h
mWow!  What luck @USER@!  You win 
r25 k
m Credits!!!!
n"
crlf
print "1H
n                                                  
n\r"
pause
adjust_user_credits 25
add WINNINGS 25
cmd_pop
goto top

# TOTAL = 21  CHUCKLE BLACK JACK!  +50
:super
print "1H"
print "
h
wYour total for this hand was: 
h
b"
print TOTAL
print "   
n"
crlf
print "                                                           
n"
crlf
# Send them fancy stereo feedback for winning.  <Chuckle>
print_remote ""
print "
h
mYou've hit 21-BLACKJACK you lucky hacker you!!!
n"
crlf
print "
h
yThe SysOp adds
r 50 k
y credits to your account with a scowl...
n"
crlf
print "1H
n                                                  
n\r"
pause
adjust_user_credits 50
add WINNINGS 50
cmd_pop
goto top

# Took 5 cards and the TOTAL was 21 or less?
# Not easy to do so reward them!  +150
:overfive
print "1H"
print "
h
wYour total for this hand was: 
h
b"
print TOTAL
print "   
n"
crlf
print "                                                           
n"
crlf
print_remote ""
print "
h
mYou took 5 cards and have 21 or less.  You get Bonus Credits!!!
n"
crlf
print "
h
yThe SysOp painfully adds
r 150 k
y credits to your account with a howl...
n"
crlf
print "1H
n                                                  
n\r"
pause
adjust_user_credits 150
add WINNINGS 150
cmd_pop
goto top

# TOTAL over 21.  BUSTED!   -25
:crap
print "1H"
print "
h
wYour total for this hand was: 
h
b"
print TOTAL
print "   
n"
crlf
print "                                                           
n"
crlf
print "
h
mUh Oh . . . You've busted big time with a score of: 
h
r"
print TOTAL
print ".
n"
crlf
print "
h
yThe SysOp pockets away 
r25 k
y of your credits with a Chuckle...
n"
crlf
print "1H
n                                                  
n\r"
pause
adjust_user_credits -25
sub WINNINGS 25
cmd_pop
goto top

# If COUNT in a previous check indicated 5 cards had been drawn,
# this is the bigtest to see if they win big CREDITS.
:bigtest
compare TOTAL 21
  if_less_or_equal
    cmd_pop
    goto overfive
  end_if
compare TOTAL 21
  if_greater
    cmd_pop
    goto crap
  end_if

# Leaving so soon?   Let's see if they won or lost
# and send them the appropriate feedback.
# They started out with WINNINGS = 0
:leave
# No trackplay = No play.  Bypass logging no-play activity.
compare trackplay 0
  if_equal
    cmd_pop
    goto byebye
  end_if
compare WINNINGS 0
  if_equal
    cmd_pop
    goto nochange
  end_if
compare WINNINGS 0
  if_greater
    cmd_pop
    goto playerwon
  else
    cmd_pop
    goto userlost
  end_if

# No winings - No loss.
:nochange
crlf
crlf
print "
h
yYou came out exactly 
h
mEVEN
h
y @USER@.
n"
crlf
crlf
pause
# Append GUESS.LOG for No Change.  Plays/User/Date/Credits
  FOPEN file O_CREAT|O_WRONLY|O_APPEND "c:\sbbs\blackjck.log"
    str uno dos
    copy str trackplay
# Number of Plays Info.  Display formality.  Print Play or Plays?
    compare trackplay 1
      if_equal
        fprintf file "
m
h%s 
n
gplay by 
w
h" str
      else
        fprintf file "
m
h%s 
n
gplays by 
w
h" str
      end_if
# User Alias
    fwrite file _useron.alias
    set uno " 
n
gon 
h
y"
    fprintf file "%s" uno
    int t
    time t
    time_str str t
    shift_str 4
# Date/Time
    fprintf file "%s" str
# Credit Results - Adding a return on the end of the line.
    set dos "
n
g.  Results: 
r
hEven\r\n"
    fprintf file "%s" dos
  FCLOSE file
cmd_pop
goto byebye

# TOTAL above zero - Player Won Credits!
:playerwon
crlf
crlf
print "
h
yYou've won a grand total of 
h
m"
print WINNINGS
print " 
h
yk Credits @USER@.
n
crlf
crlf
pause
  FOPEN file O_CREAT|O_WRONLY|O_APPEND "c:\sbbs\blackjck.log"
    str uno dos
    copy str trackplay
    compare trackplay 1
      if_equal
        fprintf file "
m
h%s 
n
gplay by 
w
h" str
      else
        fprintf file "
m
h%s 
n
gplays by 
w
h" str
      end_if
    fwrite file _useron.alias
    set uno " 
n
gon 
h
y"
    fprintf file "%s" uno
    int t
    time t
    time_str str t
    shift_str 4
    fprintf file "%s" str
    set dos "
n
g.  Results: 
w
h+"
    fprintf file "%s" dos
    copy str winnings
    fprintf file "%s k\r\n" str
  FCLOSE file
cmd_pop
goto byebye

# TOTAL below 0 (negative)  User Lost!
:userlost
crlf
crlf
print "
h
yYou lost a total of 
h
m"
print WINNINGS
print " 
h
yk Credits @USER@
n"
crlf
crlf
pause
  FOPEN file O_CREAT|O_WRONLY|O_APPEND "c:\sbbs\blackjck.log"
    str uno dos
    copy str trackplay
    compare trackplay 1
      if_equal
        fprintf file "
m
h%s 
n
gplay by 
w
h" str
      else
        fprintf file "
m
h%s 
n
gplays by 
w
h" str
      end_if
    fwrite file _useron.alias
    set uno " 
n
gon 
h
y"
    fprintf file "%s" uno
    int t
    time t
    time_str str t
    shift_str 4
    fprintf file "%s" str
    set dos "
n
g.  Results: 
r
h"
    fprintf file "%s" dos
    copy str winnings
    fprintf file "%s k\r\n" str
  FCLOSE file
cmd_pop
goto byebye

# Exiting Script.
:byebye